home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304F.ZIP;1 / EXFOR.ARJ / FGDOC / EXAMPLES / FORTRAN / 09-02.FOR < prev    next >
Encoding:
Text File  |  1994-01-24  |  521 b   |  22 lines
  1. $INCLUDE: 'C:\FG\INTRFACE.FOR'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER*2 MODE, STATUS
  6.       INTEGER*1 HEADER(128)
  7.       INTEGER*2 FG_PCXHEAD, FG_PCXMODE
  8.  
  9.       STATUS = FG_PCXHEAD('CORAL.PCX'//CHAR(0),HEADER)
  10.       IF (STATUS .EQ. -1) THEN
  11.          STOP 'Can''t open CORAL.PCX.'
  12.       ELSE IF (STATUS .EQ. -2) THEN
  13.          STOP 'CORAL.PCX is not a PCX file.'
  14.       END IF
  15.  
  16.       MODE = FG_PCXMODE(HEADER)
  17.       WRITE(6,10) MODE
  18. 10    FORMAT (' Optimal display mode is',I3,'.')
  19.  
  20.       STOP ' '
  21.       END
  22.